(tibetan-post-read-conversion): Return

the length of converted region.

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index e8581de2f792cf9639e08708d6116290d090ce72..4ce4f36bc90e7b95fc64b88416ed62a5ee99391e 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -443,9 +443,9 @@ See also docstring of the function tibetan-compose-region."
        (narrow-to-region (point) (+ (point) len))
        (tibetan-compose-region (point-min) (point-max))
        (set-buffer-modified-p buffer-modified-p)
-       (point-max))))
-  (make-local-variable 'tibetan-decomposed)
-  (setq tibetan-decomposed nil))
+       (make-local-variable 'tibetan-decomposed)
+       (setq tibetan-decomposed nil)
+       (- (point-max) (point-min))))))
 
 
 ;;;###autoload